home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / pcmag / v11n04 / pswrd1.wfw < prev    next >
Encoding:
Text File  |  1992-01-27  |  414 b   |  23 lines
  1. Sub MAIN
  2. MsgBox "Correct password must be entered to continue", \
  3. "Password Locked"
  4. AppMinimize
  5. Repeat:
  6. Input "Enter password", a$
  7. If a$ = "password" Then
  8.      Goto done
  9.        Else
  10.       Beep
  11.       pw = pw + 1
  12.       Goto repeat
  13. End If
  14. Goto repeat
  15. done:
  16. If pw > 0 Then
  17.        MsgBox "Incorrect password entered" \
  18.        + Str$(pw) + " times", "Password Unlocked"
  19. End If
  20. AppMaximize
  21. End Sub
  22.  
  23.